home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pofo / sprachen / pbasic / pbas30 / addtim.bas < prev    next >
Encoding:
BASIC Source File  |  1991-08-22  |  842 b   |  42 lines
  1. '   ADDTIME
  2. '   Louis Shapiro
  3. '   70210,306
  4. 5  cls
  5.    locate 7,1
  6.    print "   *  Enter 999 at Minutes to end  *"
  7.    print "   * Enter 111 at Minutes to reset *"
  8. 10 locate 1,1
  9.    input "Minutes";m
  10.    if m = 999 then cls:end
  11.    if m = 111 then goto 400
  12.    input "Seconds";s
  13.    locate 1,9:print "    ";
  14.    locate 2,9:print "    ";
  15.    locate 4,2
  16.    print "        "
  17.    locate 4,2
  18.    print m;":";
  19.    if s < 10 then print "0";
  20.    print s
  21.    m1 = m1+m
  22.    s1 = s1+s
  23. 100 if s1<60 then goto 200
  24.    s1 = s1-60
  25.    m1 = m1+1
  26.    goto 100
  27.    200 if m1<60 then goto 300
  28.    m1 = m1-60
  29.    h1 = h1+1
  30.    goto 200
  31. 300 box 1,26,5,36,1
  32.    locate 3,29
  33.    print "       "
  34.    locate 3,29
  35.    if h1 >0 then print h1;":";
  36.    print m1;":";
  37.    if s1 < 10 then print "0";
  38.    print s1
  39.    goto 10
  40. 400 m=0:s=0:m1=0:s1=0:h1=0
  41.    goto 5
  42. ə